Exploring Aeronautics/NASA Exploring Aeronautics.iso/pc/source/debug.dxr/00001_main.ls

Text File | 1998-06-02 | 972 b | 40 lines

global runString, outputString, x

on startMovie
  set runString to EMPTY
  set outputString to EMPTY
  set x to 0
end

on showMemoryStatus
  set freeByteString to "freeBytes:" && string(the freeBytes)
  set the text of member "freebytesdisplay" to freeByteString
end

on parseMessageWindow
  set lastLine to the lineCount of member "messageWindow" - 1
  set aString to line lastLine of the text of member "messageWindow"
  put aString
  if aString contains "put" then
    putMessageWindow(aString)
  end if
end

on putMessageWindow commandLine
  set localX to 0
  if stringp(commandLine) then
    set aString to commandLine
  else
    set aString to the text of member "messageWindow"
  end if
  set runString to "tell the stage to" && aString && "into localX"
  do(runString)
  set output to aString && ":" && string(localX)
  set the text of member "messageWindow" to output
end

on doMessageWindow
  set aString to the text of member "messageWindow"
  do(aString)
end